home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / framework.lha / fw / token.e < prev    next >
Encoding:
Text File  |  1996-01-28  |  388 b   |  22 lines
  1.  
  2. -> lexical tokens for compilers. Use connected with lexical analysers.
  3.  
  4. -> Copyright © Guichard Damien 01/04/1996
  5.  
  6. OPT MODULE
  7. OPT EXPORT
  8.  
  9. MODULE 'fw/fastDictionary'
  10.  
  11. OBJECT token OF fastDictionary
  12.   lexicalClass:LONG
  13. ENDOBJECT
  14.  
  15. -> Creation method.
  16. PROC newToken(name:PTR TO CHAR,class:LONG) OF token
  17.   self.name:=name
  18.   self.hashCode:=self.hash(name)
  19.   self.lexicalClass:=class
  20. ENDPROC
  21.  
  22.